home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / adv106 / vb5clock.fr_ / vb5clock.fr
Text File  |  1999-02-28  |  4KB  |  101 lines
  1. VERSION 5.00
  2. Object = "{C0F4CDFB-7445-11D2-8999-14FA04C10000}#116.5#0"; "AdvClock.ocx"
  3. Begin VB.Form frmClock 
  4.    BackColor       =   &H8000000C&
  5.    Caption         =   "Advanced ClockControl"
  6.    ClientHeight    =   4725
  7.    ClientLeft      =   75
  8.    ClientTop       =   330
  9.    ClientWidth     =   6750
  10.    LinkTopic       =   "Form1"
  11.    PaletteMode     =   1  'UseZOrder
  12.    ScaleHeight     =   315
  13.    ScaleMode       =   3  'Pixel
  14.    ScaleWidth      =   450
  15.    ShowInTaskbar   =   0   'False
  16.    Begin AdvClock.AdvClockControl AdvClockControl1 
  17.       Height          =   4650
  18.       Left            =   0
  19.       TabIndex        =   0
  20.       Top             =   0
  21.       Width           =   6720
  22.       _ExtentX        =   11853
  23.       _ExtentY        =   8202
  24.       ShowDayOfMonth  =   -1  'True
  25.       ShowDayOfWeek   =   -1  'True
  26.       RoundControl    =   0   'False
  27.       NumeralsOrientation=   1
  28.       BubbleTextStyle =   2
  29.       CenterWidth     =   12
  30.       SecHandStyle    =   1
  31.       STexture        =   -1  'True
  32.       SmallSeconds    =   -1  'True
  33.       CaptionStyle    =   1
  34.       FontStyle       =   2
  35.       TimeFormat      =   6
  36.       Enabled         =   -1  'True
  37.       ShowTicks       =   2
  38.       NumeralsStyle   =   0
  39.       CaptionColor    =   128
  40.       MouseIcon       =   "vb5Clock.frx":0000
  41.       BackgroundPicture=   "vb5Clock.frx":031A
  42.       MinuteTexture   =   "vb5Clock.frx":1B5F0
  43.       HourTexture     =   "vb5Clock.frx":29742
  44.       CenterTexture   =   "vb5Clock.frx":37894
  45.       SmallSecTexture =   "vb5Clock.frx":37DE6
  46.       BubblePic       =   "vb5Clock.frx":45F38
  47.       MinutesHandColor=   12632256
  48.       HoursHandColor  =   12632256
  49.       Style           =   2
  50.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  51.          Name            =   "Times New Roman"
  52.          Size            =   12.75
  53.          Charset         =   0
  54.          Weight          =   700
  55.          Underline       =   0   'False
  56.          Italic          =   0   'False
  57.          Strikethrough   =   0   'False
  58.       EndProperty
  59.       BeginProperty CaptionFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  60.          Name            =   "Matura MT Script Capitals"
  61.          Size            =   7.5
  62.          Charset         =   0
  63.          Weight          =   600
  64.          Underline       =   0   'False
  65.          Italic          =   -1  'True
  66.          Strikethrough   =   0   'False
  67.       EndProperty
  68.       NumeralsColor   =   128
  69.       CTexture        =   -1  'True
  70.       MTexture        =   -1  'True
  71.       HTexture        =   -1  'True
  72.       ShowSeconds     =   0   'False
  73.       BackgroundPicture=   "vb5Clock.frx":5408A
  74.       SecHandColor    =   128
  75.    End
  76. End
  77. Attribute VB_Name = "frmClock"
  78. Attribute VB_GlobalNameSpace = False
  79. Attribute VB_Creatable = False
  80. Attribute VB_PredeclaredId = True
  81. Attribute VB_Exposed = False
  82. Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
  83. Const HWND_TOPMOST = -1
  84. Const SWP_NOACTIVATE = &H10
  85. Const SWP_SHOWWINDOW = &H40
  86.  
  87. Private Sub AdvClockControl1_Alarm(ByVal AlarmTime As Date)
  88.     Titel = "AdvClockControl - Demo"
  89.     Msg = "Alarm at: " & AlarmTime
  90.     Antwort = MsgBox(Msg, 48, Titel)
  91. End Sub
  92.  
  93. Private Sub Form_Load()
  94.     SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 450, 320, SWP_NOACTIVATE Or SWP_SHOWWINDOW
  95. End Sub
  96.  
  97. Private Sub Form_Resize()
  98.     AdvClockControl1.Height = ScaleHeight
  99.     AdvClockControl1.Width = ScaleWidth
  100. End Sub
  101.